home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 19 Adventure Games / TOPDOL.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.3 KB  |  211 lines

  1. 1 PRINT"[147]":MM=5:CH=0:CP=0:XV=1
  2. 2 MM=5:PT=0:RF=INT(RND(1)*2)+1:IFRF=1THENV$="B"
  3. 3 IFRF=2THENV$="S"
  4. 4 IFRF=3THENV$="F"
  5. 6 TI$="000000":POKE53280,6:POKE53281,0:PRINT"[147]"
  6. 7 FORA=1TO20
  7. 8 PRINT"[159]TOP DOLLAR"
  8. 9 PRINT"BY:ANDREW BLEVINS"
  9. 10 FORB=1TO50:NEXTB
  10. 11 PRINT"TOP DOLLAR"
  11. 12 PRINT"BY:ANDREW BLEVINS"
  12. 13 FORB=1TO50:NEXTB:NEXTA
  13. 14 IFXV>1THENGOTO70
  14. 19 PRINT"[147][159]TOP DOLLAR:"
  15. 20 PRINT"[144]A *FASTPACED* MAZE GAME WHERE YOU WANT  TO EXCEL IN THE ART OF THEFT!"
  16. 21 PRINT"YOU WIND YOUR WAY THROUGH A BANK AND    PICK UP ANY CASH YOU FIND,"
  17. 22 PRINT"TO PAY OFF ANY OF THE CORRUPT GUARDS YOUMAY RUN INTO INSIDE THE BANK."
  18. 40 PRINT"AND LOOK FOR THE BANKS VAULT WITH AN    AMOUNT OF CASH OVER $10,000!"
  19. 50 PRINT"AND A SECRET ESCAPE ROUTE THAT TAKES YOUFROM THE BANK TROUBLEFREE!"
  20. 51 PRINT"AND UPON ESCAPE YOU'LL BE NOTIFIED BY USAS TO HOW MANY MOVES YOU MADE!"
  21. 52 PRINT"AS WELL AS YOUR APPROX. AMOUNT OF TIME  YOU'VE TAKEN TO COMPLETE THEM."
  22. 60 FORA=55536TO56096
  23. 65 POKEA,3:FORK=1TO30:NEXTK:NEXTA
  24. 69 B=INT(RND(1)*9)
  25. 70 IFB>8THENGOTO69
  26. 71 IFB=1THENA$="MR. TIM JIPER"
  27. 72 IFB=2THENA$="MR. ROB TODAY"
  28. 73 IFB=3THENA$="MR. VAN BASTE"
  29. 75 IFB=4THENA$="MR. BIG GRASP"
  30. 76 IFB=8THENA$="MR. MOB CRAFT"
  31. 77 IFB=6THENA$="MR. HOT PRINT"
  32. 78 IFB=7THENA$="MR. WILL KILL"
  33. 79 IFB=5THENA$="MR. SAM SLASH"
  34. 80 FORA=1TO30
  35. 81 PRINT"[147][159]YOUR ALIAS NAME IS: [158]";A$
  36. 83 PRINT"[147][159]YOUR ALIA$ NAME IS: ";A$
  37. 84 NEXTA
  38. 85 FORA=1TO50:NEXTA
  39. 90 PRINT"[147]YOU RUN UNCONTROLABLY THROUGH THE FRONT OF THE BUILDING, SWIFTLY!"
  40. 95 PRINT"YOU DIRECTLY RUN INTO A FORK IN THE HALLAND YOU DECIDE TO TURN?
  41. 100 B$[178]"":[133]"R-RIGHT OR L-LEFT";B$:PT[178]PT[170]1
  42. 110 [139]B$[178]"R"[167][141]10000:[137]1000
  43. 111 [139]B$[178]""[167][137]90
  44. 112 [141]10000
  45. 120 B$[178]"":[153]"LOADYOU NOW RUN INTO SOME FILING CABNETS SO YOU GO AROUND THEM."
  46. 125 B$[178]"":[133]"L-LEFT R-RIGHT";B$:PT[178]PT[170]1
  47. 130 [139]B$[178]"R"[167][137]20000
  48. 131 [139]B$[178]""[167][137]120
  49. 136 [153]"LOADYOU LOOK DOWN SOME OMINUS STAIRS AND YOUWONDER WHAT TO DO??"
  50. 137 B$[178]"":[133]"DS-DOWNSTAIRS R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"DS"[167][141]30000
  51. 138 [139]B$[178]"R"[167]1000
  52. 139 [139]B$[178]""[167][137]136
  53. 140 [153]"LOADMORE AND MORE STAIRS ALL AROUND YOU AND YOU'RE GETTING TIRED."
  54. 141 B$[178]"":[133]"US-UPSTAIRS DS-DOWNSTAIRS";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]140
  55. 142 [153]"LOADYOU HEAR THE KEYS OF A GUARD AND HE HAS A BUNCH!!":B$[178]""
  56. 143 [133]"DS-DOWNSTAIRS R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"DS"[167][141]30000:[137]40000
  57. 144 [139]B$[178]""[167][137]142
  58. 145 [153]"LOADAFTER ALOT OF RUNNING YOU FIND AN OFFICEDOOR OPEN DO YOU GO IN?"
  59. 146 B$[178]"":[133]"Y-YES N-NO";B$:PT[178]PT[170]1:[139]B$[178]"N"[167][137]153
  60. 147 [153]"LOADYOU FIND NOTHING BEHIND YOU AND YOU SEE LIGHT FROM AN OPEN DOOR?"
  61. 148 B$[178]"":[133]"T-TO THE LIGHT F-FROM THE LIGHT";B$:PT[178]PT[170]1:[139]B$[178]"T"[167][137]300
  62. 149 [139]B$[178]""[167][137]147
  63. 150 [153]"LOADYOU SEE A RED LIGHT AT THE END OF THE   HALL AND SOME STAIRS?"
  64. 151 B$[178]"":[133]"DS-DOWNSTAIRS H-HALLWAY";B$:PT[178]PT[170]1:[139]B$[178]"H"[167][137]1014
  65. 152 [139]B$[178]""[167][137]150
  66. 153 [153]"LOADYOU SEE TWO TUNNELS NUMBER ONE AND TWO  WHICH DO YOU CHOOSE??"
  67. 154 B$[178]"":[133]"O-ONE T-TWO";B$:PT[178]PT[170]1:[139]B$[178]"T"[167][137]3012
  68. 155 [139]B$[178]""[167][137]153
  69. 156 MM[178]60:[141]30000:[141]30000
  70. 157 [153]"LOADYOU STEP IN AN ELEVATOR AND THERE ARE 3 FLOORS WHICH DO YOU CHOOSE?"
  71. 158 B$[178]"":[133]"F-FIRST S-SECOND B-BASEMENT";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]158
  72. 159 [137]60000
  73. 300 [153]"LOADYOU HEAR PEOPLE TALKING LIKE THEY'RE OFFWORK SO WHERE DO YOU GO?"
  74. 301 B$[178]"":[133]"TO-TO THE SOUND R-TO THE RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"R"[167][137]1001
  75. 302 [139]B$[178]""[167][137]300
  76. 303 [141]10000
  77. 304 [153]"LOADYOU HEAR SOMEONE WHISTLING AND ROLLING ABUCKET OF WATER."
  78. 305 B$[178]"":[133]"O-ONWARD US-UPSTAIRS";B$:PT[178]PT[170]1:[139]B$[178]"O"[167][137]55555
  79. 306 [139]B$[178]""[167][137]304
  80. 308 [153]"LOADSOMEONE IS NOW YELLING (HALT OR ELSE)   AND YOU PANIC!!!"
  81. 309 B$[178]"":[133]"RR-RUN RIGHT RL-RUN LEFT";B$:PT[178]PT[170]1:[139]B$[178]"RR"[167][137]20000
  82. 310 [139]B$[178]""[167][137]308
  83. 311 [137]136
  84. 1000 [141]30000
  85. 1001 [153]"LOADYOU FIND AN AIRCONDITIONER VENT AND IN  IT YOU CAN TAKE 2 PATHS."
  86. 1002 B$[178]"":[133]"U-UP D-DOWN";B$:PT[178]PT[170]1:[139]B$[178]"U"[167][137]40000:[139]B$[178]""[167]1001
  87. 1003 [153]"LOADYOU NOW FIND A PATH STRAIGHT AHEAD WITH A LIGHT AND YOU GO ON?"
  88. 1004 B$[178]"":[133]"Y-YES N-NO";B$:PT[178]PT[170]1:[139]B$[178]"Y"[167][141]10000:[137]2000
  89. 1005 [139]B$[178]""[167][137]1003
  90. 1006 [141]10000
  91. 1007 [153]"LOADYOU SEE DOWN A SLOPING VENT TO ANOTHER  FORK AND YOU DECIDE!"
  92. 1008 B$[178]"":[133]"R-RIGHT L-LEFT";B$:PT[178]PT[170]1:[139]B$[178]"R"[167][137]136
  93. 1009 [139]B$[178]""[167][137]1006
  94. 1010 [139]B$[178]"L"[167][137]3000
  95. 1011 [153]"LOADYOU FEEL AROUND IN THE DARK AND YOU FINDA VERY LARGE PIPE, SO GO?"
  96. 1012 B$[178]"":[133]"L-LEFT R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"L"[167][141]10000
  97. 1013 [139]B$[178]"R"[167][137]3000
  98. 1014 [153]"LOADYOU'RE BACK IN AN OFFICE CORRIDOR AND ITIS DARK, DO YOU GO ON?"
  99. 1015 B$[178]"":[133]"Y-YES N-NO";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]1014
  100. 1016 [139]B$[178]"N"[167][137]3000
  101. 1017 [141]30000
  102. 1018 [153]"LOADYOU START TO SMELL SOME VERY STRONG GAS SO YOU MUST?"
  103. 1019 B$[178]"":[133]"RR-RUN RIGHT L-LEFT";B$:PT[178]PT[170]1
  104. 1020 [139]B$[178]"RR"[167][137]20000
  105. 1021 [139]B$[178]"L"[167][137]140
  106. 2000 [153]"LOADTHERE'S ALOT OF INSULATION AND YOU ITCH AND THERE IS AN OPENING?"
  107. 2001 B$[178]"":[133]"E-ENTER IT N-NO";B$:PT[178]PT[170]1:[139]B$[178]"E"[167][137]2020
  108. 2002 [139]B$[178]""[167]2000
  109. 2003 [153]"LOADYOU'VE COME TO A PILE OF TRASH AND IT   DOESN'T SEEM A HARM TO YOU?"
  110. 2004 B$[178]"":[133]"A-AROUND IT T-THROUGH IT";B$:PT[178]PT[170]1:[139]B$[178]""[167]2003
  111. 2005 [139]B$[178]"T"[167][141]10000
  112. 2006 [139]B$[178]"A"[167][137]2022
  113. 2020 [153]"LOADYOU HEAR SOMEONE WITH KEYS AND YOU GET  VERY PARINOID!!":B$[178]""
  114. 2021 [133]"B-MOVE BACK RL-RUN LEFT";B$:PT[178]PT[170]1:[139]B$[178]"BR"[167][141]30000:[137]40000
  115. 2022 [153]"LOADYOU SEE A LARGE DEVICE IN YOUR PATH AND YOU'RE NOT SURE WHAT TO DO?"
  116. 2024 B$[178]"":[133]"O-OVER IT U-UNDER IT";B$:PT[178]PT[170]1
  117. 2025 [139]B$[178]"U"[167][137]1001
  118. 2026 [139]B$[178]""[167][137]2022
  119. 2030 [153]"LOADYOU NOW SPY SOMETHING TO THE RIGHT ON A TABLE SO WHERE DO YOU GO?"
  120. 2031 [133]"S-STRAIGHT R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]""[167]2030:[139]B$[178]"R"[167][141]10000
  121. 2032 [139]B$[178]"S"[167][137]3005
  122. 2033 [153]"LOADYOU CAN SMELL SOME WARM FRESH AIR AND DOYOU WISH TO GET CLOSER?"
  123. 2034 [133]"CF-CLOSER FOREWARD FB-FARTHER BACK";B$:PT[178]PT[170]1:[139]B$[178]"CF"[167][137]40000
  124. 2035 [139]B$[178]"FB"[167][137]3008
  125. 3000 [141]30000
  126. 3005 [153]"LOADYOU'VE FOUND A STAIRWELL AND DO YOU WISHTO ENTER IT?"
  127. 3006 B$[178]"":[133]"Y-YES N-NO";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]3005:[139]B$[178]"N"[167][137]2024
  128. 3008 [153]"LOADYOU DEFINITELY HEAR A GUARD COMING WHICHHALLWAY DO YOU CHOOSE?"
  129. 3009 B$[178]"":[133]"L-LEFT R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"L"[167][141]30000:[137]1014
  130. 3010 [153]"LOADYOU SEE SOME STAIRS AND YOU NEED TO GET SOMEWHERE CLOSER IN BACK?"
  131. 3011 B$[178]"":[133]"US-UPSTAIRS DS-DOWNSTAIRS";B$:PT[178]PT[170]1:[139]B$[178]"US"[167][137]2028
  132. 3012 [153]"LOADYOU'VE FOUND A SECRET DOOR IT SEEMS AND IT HAS A KEY IN ITS LOCK!"
  133. 3013 B$[178]"":[133]"O-OPEN IT GA-GO AWAY";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]3012
  134. 3014 [139]B$[178]"GA"[167][137]3008
  135. 3015 [139]B$[178]"O"[167][141]10000
  136. 3016 [137]95
  137. 10000 [153]"LOADYOU'VE FOUND SOME CASH, WOULD YOU LIKE  TO PICK IT UP?"
  138. 10001 C$[178]"":[133]"Y-YES N-NO";C$:[139]C$[178]""[167][137]10000
  139. 10002 [139]C$[178]"Y"[167]Z[178][181]([187](1)[172]150)[170]30:CH[178]CH[170]Z
  140. 10003 [139]C$[178]"N"[167][137]10015
  141. 10010 CC[178][181]([187](1)[172]100):[139]CC[177]95[167][137]20370
  142. 10015 [153]"LOADYOU HAVE";CH"DOLLARS.":[129]A[178]1[164]2000:[130]A:[153]"LOAD":[142]
  143. 20000 EG[178][181]([187](1)[172]9)[170]1
  144. 20001 [139]EG[178]7[167][137]20100
  145. 20002 [139]EG[178]5[167][137]20200
  146. 20003 [139]EG[178]9[167][137]20300
  147. 20004 [139]EG[178]4[167][137]20350
  148. 20005 [139]EG[178]2[167][137]20360
  149. 20050 [137]20000
  150. 20100 [153]"LOADYOU ARE EATEN IN A SLOW BLOODY DEATH BY LARGE GUARD DOGS!!"
  151. 20101 [137]20400
  152. 20200 [153]"LOADA LARGE CALIBER PISTOL HITS YOU MULTIPLETIMES FROM THE DARK!!"
  153. 20202 [137]20400
  154. 20300 [153]"LOADYOU ARE BREATHING POISONOUS GASES THAT  MAKE YOU PASS OUT FOREVER!"
  155. 20303 [137]20400
  156. 20350 [153]"LOADYOU SLIP ON A NEWLY WAXED FLOOR AND YOU CRACK YOUR SKULL!!"
  157. 20351 [137]20400
  158. 20360 [153]"LOADYOU ARE WRAPPED UP IN A BLANKET FROM THEREAR AND STABBED TO DEATH!"
  159. 20361 [137]20400
  160. 20370 [153]"LOADYOU ARE CAPTURED AND TORTURED IN A SLOW DEATH FOR STEALING CASH!"
  161. 20400 [129]A[178]1[164]2500:[130]A
  162. 20500 [153]"LOAD";A$
  163. 20501 [129]A[178]1[164]150
  164. 20502 [153]"IS DEAD!!"
  165. 20503 [153]"SYSIS DEAD!!"
  166. 20504 [130]A
  167. 20505 [153]"HIT ANY KEY TO START"
  168. 20506 [161]H$:[139]H$[177][179]""[167]CH[178]0:XV[178]XV[170]1:[137]2
  169. 20507 [137]20506
  170. 30000 CP[178][181]([187](10)[172]95)[170]MM
  171. 30005 [153]"LOADYOU'VE RUN INTO A GUARD AND HE WANTS";CP"DOLLARS!"
  172. 30006 [153]"GIVE IT OR DIE!!":[129]A[178]1[164]2500:[130]A
  173. 30007 [139]CH[177]CP[167]CH[178]CH[171]CP:[153]"LOADTHE GUARD FREES YOU!!":[129]A[178]1[164]1900:[130]:[142]
  174. 30008 [139]CH[179]CP[167][137]20200
  175. 40000 [153]"LOADWELL OPEN";A$" THE DOOR IS LOCKED   AND YOUR OUT WITH ";CH;
  176. 40001 [153]"DOLLARS!
  177. 40005 FORA=1TO3500:NEXTA:PRINT"[147]GAME OVER![158]"
  178. 40006 PRINT"HIT ANY KEY TO START":XV=XV+1
  179. 40007 GETH$:IFH$><""THENCH=0:GOTO2
  180. 40008 GOTO40007
  181. 50000 PRINT"[147]":HC=INT(RND(1)*1045)+577
  182. 50001 FORA=1TO15:PRINT"$$CASH$$$CASH$$CASH$$CASH$$$CASH$$CASH$$"
  183. 50002 PRINT"$$CASH$$$CASH$$CASH$$CASH$$$CASH$CASH$$"
  184. 50005 CH=CH+HC:NEXTA
  185. 50006 FORA=1TO15:PRINT"    SH$$$CASH$$CASH$$CASH$$$CASH$$CA"
  186. 50007 PRINT"    SH$$$CASH$$CASH$$CASH$$$CASH$$CA"
  187. 50008 CH=CH+HC:NEXTA
  188. 50009 FORA=1TO15:PRINT"          $CASH$$CASH$$CASH$$$"
  189. 50010 PRINT"          $CASH$$CASH$$CASH$$$"
  190. 50011 CH=CH+HC:NEXTA
  191. 50012 FORA=1TO15:PRINT"                 CASH$"
  192. 50013 PRINT"                 CASH$"
  193. 50014 CH=CH+HC:NEXTA
  194. 50040 PRINT"[147]"
  195. 50050 PRINT"[159]CONGRADULATIONS YOU ARE A PROFESSIONAL  THEFTIST [158]";A$
  196. 50055 PRINT"[159]AND YOU HAVE GOTTEN AWAY WITH$";CH".00"
  197. 50056 PRINT"":FORA=1TO9
  198. 50057 PRINT"                                        ":NEXTA
  199. 50060 FORA=1TO2500:NEXTA
  200. 50063 PRINT""
  201. 50064 PRINT"               [159]GAME OVER!"
  202. 50065 PRINT"             WITH";PT"MOVES!"
  203. 50066 PRINT"           APPROX.TIME";VAL(TI$)"[157][157][157]"CHR$(148)"[157][157]:"
  204. 50067 FORA=1TO7:PRINT"                                        ":NEXTA
  205. 50068 GOTO50068
  206. 55555 PRINT"[147]YOUR PARTNER THE JANITOR SAYS '";V$"' IS THEWORD...."
  207. 55556 FORA=1TO1500:NEXT:GOTO308
  208. 60000 IFB$=V$THENGOTO50000
  209. 60001 IFB$="F"ORB$="S"ORB$="B"THENGOTO20000
  210. 60002 IFB$><"F"ORB$><="S"ORB$><="B"THENGOTO20000
  211.